/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_04 / daydate

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 44 | 41 59 44 41 54 45 0d 00 |..... >D|AYDATE..|
|00000010| 14 05 f5 0d 00 1e 1c e8 | 86 22 44 41 54 45 3f 20 |........|."DATE? |
|00000020| 44 44 2c 4d 6d 6d 20 59 | 59 59 59 20 22 58 24 0d |DD,Mmm Y|YYY "X$.|
|00000030| 00 28 07 d1 3d 30 0d 00 | 32 18 f1 22 4d 65 20 20 |.(..=0..|2.."Me  |
|00000040| 20 20 20 20 20 22 2b a4 | 61 28 58 24 29 3b 0d 00 |     "+.|a(X$);..|
|00000050| 3c 08 41 25 3d 91 0d 00 | 46 0a f1 41 25 2a 31 30 |<.A%=...|F..A%*10|
|00000060| 0d 00 50 04 0d 00 5a 07 | d1 3d 30 0d 00 64 0d e3 |..P...Z.|.=0..d..|
|00000070| 4e 25 3d 31 b8 31 30 30 | 0d 00 6e 0d 41 24 3d a4 |N%=1.100|..n.A$=.|
|00000080| 78 28 58 24 29 0d 00 78 | 05 ed 0d 00 82 14 f1 22 |x(X$)..x|......."|
|00000090| 43 68 65 61 6c 20 20 20 | 20 22 2b 41 24 3b 0d 00 |Cheal   | "+A$;..|
|000000a0| 8c 08 41 25 3d 91 0d 00 | 96 0a f1 41 25 2f 31 30 |..A%=...|...A%/10|
|000000b0| 0d 00 a0 04 0d 00 aa 07 | d1 3d 30 0d 00 b4 0d e3 |........|.=0.....|
|000000c0| 4e 25 3d 31 b8 31 30 30 | 0d 00 be 0d 41 24 3d a4 |N%=1.100|....A$=.|
|000000d0| 76 28 58 24 29 0d 00 c8 | 05 ed 0d 00 d2 14 f1 22 |v(X$)...|......."|
|000000e0| 43 68 65 61 6c 32 20 20 | 20 22 2b 41 24 3b 0d 00 |Cheal2  | "+A$;..|
|000000f0| dc 08 41 25 3d 91 0d 00 | e6 0a f1 41 25 2f 31 30 |..A%=...|...A%/10|
|00000100| 0d 00 f0 04 0d 00 fa 07 | d1 3d 30 0d 01 04 0d e3 |........|.=0.....|
|00000110| 4e 25 3d 31 b8 31 30 30 | 0d 01 0e 0d 41 24 3d a4 |N%=1.100|....A$=.|
|00000120| 79 28 58 24 29 0d 01 18 | 05 ed 0d 01 22 14 f1 22 |y(X$)...|....".."|
|00000130| 48 69 72 73 74 20 20 20 | 20 22 2b 41 24 3b 0d 01 |Hirst   | "+A$;..|
|00000140| 2c 08 41 25 3d 91 0d 01 | 36 0a f1 41 25 2f 31 30 |,.A%=...|6..A%/10|
|00000150| 0d 01 40 04 0d 01 4a 07 | d1 3d 30 0d 01 54 0d e3 |..@...J.|.=0..T..|
|00000160| 4e 25 3d 31 b8 31 30 30 | 0d 01 5e 0d 41 24 3d a4 |N%=1.100|..^.A$=.|
|00000170| 7a 28 58 24 29 0d 01 68 | 05 ed 0d 01 72 14 f1 22 |z(X$)..h|....r.."|
|00000180| 43 68 61 6d 62 65 72 20 | 20 22 2b 41 24 3b 0d 01 |Chamber | "+A$;..|
|00000190| 7c 08 41 25 3d 91 0d 01 | 86 0a f1 41 25 2f 31 30 ||.A%=...|...A%/10|
|000001a0| 0d 01 90 04 0d 01 9a 07 | d1 3d 30 0d 01 a4 0d e3 |........|.=0.....|
|000001b0| 4e 25 3d 31 b8 31 30 30 | 0d 01 ae 0d 41 24 3d a4 |N%=1.100|....A$=.|
|000001c0| 71 28 58 24 29 0d 01 b8 | 05 ed 0d 01 c2 14 f1 22 |q(X$)...|......."|
|000001d0| 42 65 72 72 79 20 20 20 | 20 22 2b 41 24 3b 0d 01 |Berry   | "+A$;..|
|000001e0| cc 08 41 25 3d 91 0d 01 | d6 0a f1 41 25 2f 31 30 |..A%=...|...A%/10|
|000001f0| 0d 01 e0 04 0d 01 ea 06 | fd 30 0d 01 f4 05 e0 0d |........|.0......|
|00000200| 01 fe 04 0d 02 08 1d f4 | 20 31 31 37 20 62 79 74 |........| 117 byt|
|00000210| 65 73 20 32 38 30 20 6d | 69 6c 6c 69 73 65 63 73 |es 280 m|illisecs|
|00000220| 0d 02 12 05 20 0d 02 1c | 37 dd a4 61 28 44 24 29 |.... ...|7..a(D$)|
|00000230| ea 4f 24 3a 4f 24 3d 91 | 24 3a f2 58 28 22 58 58 |.O$:O$=.|$:.X("XX|
|00000240| 58 2c 22 2b 44 24 29 3a | 44 24 3d 91 24 3a f2 58 |X,"+D$):|D$=.$:.X|
|00000250| 28 4f 24 29 3a 3d c0 44 | 24 2c 33 29 0d 02 26 04 |(O$):=.D|$,3)..&.|
|00000260| 0d 02 30 3e dd f2 58 28 | 58 24 29 ff 28 22 53 45 |..0>..X(|X$).("SE|
|00000270| 54 20 53 59 53 24 44 41 | 54 45 20 22 2b 58 24 29 |T SYS$DA|TE "+X$)|
|00000280| 3a ff 28 22 53 45 54 20 | 53 59 53 24 59 45 41 52 |:.("SET |SYS$YEAR|
|00000290| 22 2b c1 58 24 2c 31 31 | 2c 35 29 29 3a e1 0d 02 |"+.X$,11|,5)):...|
|000002a0| 3a 04 0d 02 44 29 f4 20 | 54 6f 6e 79 20 43 68 65 |:...D). |Tony Che|
|000002b0| 61 6c 3a 20 31 35 34 20 | 62 79 74 65 73 20 32 2e |al: 154 |bytes 2.|
|000002c0| 31 20 6d 69 6c 6c 69 73 | 65 63 73 0d 02 4e 05 20 |1 millis|ecs..N. |
|000002d0| 0d 02 58 9a dd a4 78 28 | 44 24 29 ea 59 25 3a 59 |..X...x(|D$).Y%:Y|
|000002e0| 25 3d bb c2 44 24 2c 34 | 29 2b 28 a7 22 61 6e 65 |%=..D$,4|)+(."ane|
|000002f0| 62 22 2c c1 44 24 2c 35 | 2c 32 29 29 3e 30 29 3a |b",.D$,5|,2))>0):|
|00000300| 3d c1 22 4d 6f 6e 54 75 | 65 57 65 64 54 68 75 46 |=."MonTu|eWedThuF|
|00000310| 72 69 53 61 74 53 75 6e | 22 2c 28 bb 44 24 2b a7 |riSatSun|",(.D$+.|
|00000320| 22 74 6f 75 67 61 72 6f | 76 75 6e 65 62 65 70 65 |"tougaro|vunebepe|
|00000330| 63 70 72 75 6c 6e 79 63 | 74 61 6e 61 79 22 2c c1 |cprulnyc|tanay",.|
|00000340| 44 24 2c 35 2c 32 29 29 | 81 34 2b 59 25 2b 59 25 |D$,5,2))|.4+Y%+Y%|
|00000350| 81 34 2d 59 25 81 31 30 | 30 2b 59 25 81 34 30 30 |.4-Y%.10|0+Y%.400|
|00000360| 29 83 37 2a 33 2b 31 2c | 33 29 0d 02 62 04 0d 02 |).7*3+1,|3)..b...|
|00000370| 6c 2a f4 20 54 6f 6e 79 | 20 43 68 65 61 6c 32 3a |l*. Tony| Cheal2:|
|00000380| 20 31 35 32 20 62 79 74 | 65 73 20 32 2e 31 20 6d | 152 byt|es 2.1 m|
|00000390| 69 6c 6c 69 73 65 63 73 | 0d 02 76 05 20 0d 02 80 |illisecs|..v. ...|
|000003a0| 98 dd a4 76 28 44 24 29 | ea 59 25 3a 59 25 3d bb |...v(D$)|.Y%:Y%=.|
|000003b0| c2 44 24 2c 34 29 2b 28 | a7 22 61 6e 65 62 22 2c |.D$,4)+(|."aneb",|
|000003c0| c1 44 24 2c 35 2c 32 29 | 29 3e 30 29 3a 3d c1 22 |.D$,5,2)|)>0):=."|
|000003d0| 53 75 6e 4d 6f 6e 54 75 | 65 57 65 64 54 68 75 46 |SunMonTu|eWedThuF|
|000003e0| 72 69 53 61 74 22 2c 28 | bb 44 24 2b a7 22 61 6e |riSat",(|.D$+."an|
|000003f0| 61 79 75 67 61 63 61 72 | 6f 76 65 62 75 6e 65 70 |ayugacar|ovebunep|
|00000400| 65 63 70 72 75 6c 63 74 | 22 2c c1 44 24 2c 35 2c |ecprulct|",.D$,5,|
|00000410| 32 29 29 81 34 2b 59 25 | 2b 59 25 81 34 2d 59 25 |2)).4+Y%|+Y%.4-Y%|
|00000420| 81 31 30 30 2b 59 25 81 | 34 30 30 29 83 37 2a 33 |.100+Y%.|400).7*3|
|00000430| 2b 31 2c 33 29 0d 02 8a | 04 0d 02 94 2a f4 20 4d |+1,3)...|....*. M|
|00000440| 61 72 6b 20 48 69 72 73 | 74 3a 20 32 32 32 20 62 |ark Hirs|t: 222 b|
|00000450| 79 74 65 73 20 33 20 6d | 69 6c 6c 69 73 65 63 6f |ytes 3 m|illiseco|
|00000460| 6e 64 73 0d 02 9e 04 0d | 02 a8 4a dd a4 79 28 44 |nds.....|..J..y(D|
|00000470| 24 29 79 3d a0 c1 44 24 | 2c 38 2c 34 29 3a 6d 24 |$)y=..D$|,8,4):m$|
|00000480| 3d c1 44 24 2c 34 2c 33 | 29 3a 64 3d a0 c1 44 24 |=.D$,4,3|):d=..D$|
|00000490| 2c 31 2c 32 29 3a e7 79 | 20 83 34 3d 30 80 a7 22 |,1,2):.y| .4=0.."|
|000004a0| 4a 61 6e 46 65 62 22 2c | 6d 24 29 3d 30 64 2b 3d |JanFeb",|m$)=0d+=|
|000004b0| 31 0d 02 b2 94 3d c1 22 | 53 61 74 53 75 6e 4d 6f |1....=."|SatSunMo|
|000004c0| 6e 54 75 65 57 65 64 54 | 68 75 46 72 69 22 2c 28 |nTueWedT|huFri",(|
|000004d0| 28 79 2d 31 29 2a 33 36 | 35 2b 28 79 2d 31 29 81 |(y-1)*36|5+(y-1).|
|000004e0| 34 2b a0 c1 22 30 30 30 | 30 33 31 30 35 39 30 39 |4+.."000|03105909|
|000004f0| 30 31 32 30 31 35 31 31 | 38 31 32 31 32 32 34 33 |01201511|81212243|
|00000500| 32 37 33 33 30 34 33 33 | 34 22 2c a7 22 4a 61 6e |27330433|4",."Jan|
|00000510| 46 65 62 4d 61 72 41 70 | 72 4d 61 79 4a 75 6e 4a |FebMarAp|rMayJunJ|
|00000520| 75 6c 41 75 67 53 65 70 | 4f 63 74 4e 6f 76 44 65 |ulAugSep|OctNovDe|
|00000530| 63 22 2c 6d 24 29 2c 33 | 29 2b 64 29 83 37 2a 33 |c",m$),3|)+d).7*3|
|00000540| 2b 31 2c 33 29 0d 02 bc | 04 0d 02 c6 2e f4 20 52 |+1,3)...|...... R|
|00000550| 6f 64 20 43 68 61 6d 62 | 65 72 6c 61 69 6e 3a 20 |od Chamb|erlain: |
|00000560| 32 30 38 20 62 79 74 65 | 73 20 33 2e 31 20 6d 69 |208 byte|s 3.1 mi|
|00000570| 6c 6c 69 73 65 63 73 0d | 02 d0 05 20 0d 02 da d0 |llisecs.|... ....|
|00000580| dd a4 7a 28 64 24 29 ea | 64 25 2c 74 25 3a 74 25 |..z(d$).|d%,t%:t%|
|00000590| 3d a7 64 24 2c 22 2c 22 | 29 3a 64 25 3d a8 28 a7 |=.d$,","|):d%=.(.|
|000005a0| 22 46 65 62 4a 61 6e 44 | 65 63 4e 6f 76 4f 63 74 |"FebJanD|ecNovOct|
|000005b0| 53 65 70 41 75 67 4a 75 | 6c 4a 75 6e 4d 61 79 41 |SepAugJu|lJunMayA|
|000005c0| 70 72 4d 61 72 22 2c c1 | 64 24 2c 74 25 2b 32 2c |prMar",.|d$,t%+2,|
|000005d0| 33 29 29 2f 33 29 2b 31 | 3a 3d c1 22 53 75 6e 4d |3))/3)+1|:=."SunM|
|000005e0| 6f 6e 54 75 65 57 65 64 | 54 68 75 46 72 69 53 61 |onTueWed|ThuFriSa|
|000005f0| 74 22 2c 28 28 bb c0 64 | 24 2c 74 25 2d 31 29 2b |t",((..d|$,t%-1)+|
|00000600| a8 28 33 36 37 2d 28 33 | 30 2e 35 2a 64 25 29 2d |.(367-(3|0.5*d%)-|
|00000610| 28 64 25 3d 31 29 2b 28 | 64 25 3e 37 29 2a 2e 35 |(d%=1)+(|d%>7)*.5|
|00000620| 29 2b a8 28 28 bb c2 64 | 24 2c 34 29 2d 31 39 30 |)+.((..d|$,4)-190|
|00000630| 30 2b 28 64 25 3c 33 29 | 29 2a 31 2e 32 35 29 2b |0+(d%<3)|)*1.25)+|
|00000640| 33 29 83 37 29 2a 33 2b | 31 2c 33 29 0d 02 e4 04 |3).7)*3+|1,3)....|
|00000650| 0d 02 ee 2f f4 20 44 65 | 66 79 72 69 67 20 42 65 |.../. De|fyrig Be|
|00000660| 72 72 79 3a 20 32 30 33 | 20 62 79 74 65 73 20 32 |rry: 203| bytes 2|
|00000670| 2e 35 20 6d 69 6c 6c 69 | 73 65 63 6f 6e 64 73 0d |.5 milli|seconds.|
|00000680| 02 f8 04 0d 03 02 cb dd | a4 71 28 44 24 29 3a 4d |........|.q(D$):M|
|00000690| 25 3d a7 22 61 6e 65 62 | 61 72 70 72 61 79 75 6e |%=."aneb|arprayun|
|000006a0| 75 6c 75 67 65 70 63 74 | 6f 76 65 63 22 2c c1 44 |ulugepct|ovec",.D|
|000006b0| 24 2c 35 2c 32 29 29 81 | 32 2b 31 3a 59 25 3d bb |$,5,2)).|2+1:Y%=.|
|000006c0| 28 c2 44 24 2c 32 29 29 | 3a 3d c1 22 53 75 6e 4d |(.D$,2))|:=."SunM|
|000006d0| 6f 6e 54 75 65 57 65 64 | 54 68 75 46 72 69 53 61 |onTueWed|ThuFriSa|
|000006e0| 74 22 2c 28 28 28 59 25 | 2a 33 36 35 2b 59 25 81 |t",(((Y%|*365+Y%.|
|000006f0| 34 2b 28 4d 25 3c 33 80 | 59 25 83 34 3d 30 29 2b |4+(M%<3.|Y%.4=0)+|
|00000700| bb 28 c1 22 30 30 30 30 | 33 31 30 35 39 30 39 30 |.(."0000|31059090|
|00000710| 31 32 30 31 35 31 31 38 | 31 32 31 32 32 34 33 32 |12015118|12122432|
|00000720| 37 33 33 30 34 33 33 34 | 22 2c 28 4d 25 2d 31 29 |73304334|",(M%-1)|
|00000730| 2a 33 2b 31 2c 33 29 29 | 2b bb 28 c0 44 24 2c 32 |*3+1,3))|+.(.D$,2|
|00000740| 29 29 29 83 37 29 2a 33 | 2b 31 29 2c 33 29 0d ff |))).7)*3|+1),3)..|
+--------+-------------------------+-------------------------+--------+--------+